home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS066.dsk / RECIPE COST.bas < prev   
BASIC Source File  |  2012-02-16  |  620b  |  24 lines
  1. 10  PRINT "RECIPE COST"
  2. 20  PRINT 
  3. 30  PRINT "NUMBER OF INGREDIENTS";
  4. 40  INPUT N
  5. 50  FOR I = 1 TO N
  6. 60  PRINT "INGREDIENT ";I;":"
  7. 70  PRINT "  COST FOR BULK UNIT IN STORE";
  8. 80  INPUT C
  9. 90  PRINT "  NUMBER OF UNITS IN BULK";
  10. 100  INPUT U
  11. 110  PRINT "  NUMBER OF RECIPE UNITS PER BULK UNIT";
  12. 120  INPUT F
  13. 130  PRINT "  NUMBER OF RECIPE UNITS CALLED FOR";
  14. 140  INPUT R
  15. 150 P = P +C/U/F *R
  16. 160  NEXT I
  17. 170  PRINT "NUMBER OF SERVINGS";
  18. 180  INPUT S
  19. 190  PRINT 
  20. 200  PRINT "TOTAL COST FOR 1 RECIPE = $"; INT(P *100 +.5)/100
  21. 220  PRINT 
  22. 230  PRINT "CHANGE NUMBER OF SERVINGS (1=YES,0=NO)";
  23. 240  INPUT N
  24. 250  IF N = 1  THEN 170